home *** CD-ROM | disk | FTP | other *** search
/ The CD-ROM Directory (13th Edition) / The CD-ROM Directory 13.iso / install / inscript.fra < prev    next >
Text File  |  1993-11-19  |  18KB  |  716 lines
  1. ; CD Answer Installation Script - Generic                               jdk
  2. ; <<CDA>> Jun 1 1993;3.2
  3. ; Apr 8 1993 hs, Jun 1 1993 hg
  4. ; single/multiple disk version
  5. ;
  6. ;   To customize this install script:
  7. ;      1. Put the product name (1-8 characters) in a file called
  8. ;         'PRODNAME'. There should be no carriage return/line feed at
  9. ;         the end of the name- the file should contain just the characters
  10. ;         of the name.
  11. ;      2. Put the application name (CD Author 4 character project identifier)
  12. ;         in a file called 'APPLNAME'. Again, no other chars should be
  13. ;         the file. Multiple applications are formed by adding a space,
  14. ;         then another application identifier
  15. ;      3. Put the start-up message in a file called PRODSCRN.<language>
  16. ;         There should not be more than 10 lines.
  17. ;
  18. ;    The first disk must contain the \INSTALL directory.
  19. ;    This contains the general system files for the install
  20. ;    process and may be repeated on disk #2, etc.
  21. ;    The application specific files are kept in a directory
  22. ;    named 'DISK1'. If additional disks are required, create
  23. ;    an (empty) file on the current disk named '\MORE' and
  24. ;    put the overflow files in a directory named \DISK2 (3, 4, ...).
  25.  
  26. BREAK abort
  27.  
  28. ; install disk
  29. PARSE_PATH <$ProgDir>
  30. SET insdrive = <$Drive>
  31. SET ins = <insdrive>\INSTALL
  32. SET curdisk = 1
  33. GOSUB need_disk
  34.  
  35. ; here are some defaults:
  36.  
  37. ;TFPL 8-6-93
  38. ;CONFIG Colors = 0 2 0 30 0 30 0 30 0 112 0 143 0 79 0 79 0 48 0 15 0 30 0 79 0 143 1 30
  39. ;CONFIG ColorSet = 55
  40. ;TFPL
  41. ;  default destination drive
  42. PARSE_PATH <$CurDir>
  43. SET def_dest = C:\
  44. IF NOT "<$Drive>"=="<insdrive>" DO SET def_def = <$Drive>
  45.  
  46. ;  default CD-ROM interface (FS_HSGEN {High Sierra} or FS_ISGEN {ISO})
  47. SET def_cdtype = High Sierra
  48. SET def_driver = FS_HSGEN
  49. IF EXISTS <insdrive>\INSTALL\<def_driver>.* GOTO ok_driver
  50. SET def_cdtype = ISO
  51. SET def_driver = FS_ISGEN
  52. :ok_driver
  53.  
  54. ;  language
  55. SET def_lang = <$Language>
  56.  
  57. ; application name(s) (4 char ident(s) on CD-ROM)
  58. READFILE names = <ins>\APPLNAME.
  59.  
  60. ; product name (application name for batch file, subdirectory name)
  61. READFILE prod = <ins>\PRODNAME.
  62.  
  63. ; default dest drive and directory
  64. PARSE_PATH <def_dest><prod>.CD
  65. SET dstdrive = <$Drive>
  66. SET path = <$Dir>
  67. CD <dstdrive>\
  68.  
  69. ; read and display Application Installation Screen
  70. IF NOT EXISTS <insdrive>\INSTALL\PRODSCRN.<def_lang> GOTO no_banner
  71. READFILE screen = <insdrive>\INSTALL\PRODSCRN.<def_lang>
  72. GOTO show_banner
  73. :no_banner
  74. SET screen =
  75. ----       CD Answer Installation pour:\n\n
  76. ----              <prod>\n\n
  77. ----       Application(s): <names>
  78. :show_banner
  79. CLEAR
  80. TEXT <screen>
  81. SET screen =
  82. WAIT
  83.  
  84. GOTO okdir
  85. :getdir
  86. CLEAR
  87. TEXT \nError -\n\n
  88. ---- Le chemin d'accès <dstdrive><path> n'est pas autorisé!
  89. ---- Pour que l'installation du logiciel reussise, il faut qu'il y ait
  90. ---- un nom valide de sous-répertoire et d'unité.
  91. WAIT
  92. :okdir
  93. CLEAR
  94. TEXT Le logiciel d'extraction doit être installé sur votre disque dur ou sur un
  95. ---- disquette formatée.  Les valeurs standards sont <dstdrive> pour l'unité (le
  96. ---- disque dur généralement) et un sous-répertoire désigné sous le nom de
  97. ---- <path>.  Pour utiliser ces valeurs, appuyez à
  98. ---- deux reprises sur ─┘ (Entrée).  Si vous voulez les modifier, tapez
  99. ---- le nouveau nom de l'unité et du sous-répertoire en regard de l'invite
  100. ---- appropriée, puis appuyez sur ─┘ (Entrée)
  101. INPUT 6,8,5 dstdrive  = Installation sur unité        ?
  102. INPUT 6,10,40 path    = Installation dans répertoire  ?
  103. SET dest = <dstdrive><path>
  104. SET confile = <ins>\_DW_.CFG
  105.  
  106. IF "<dstdrive>"=="" GOTO getdir
  107. IF "<path>"=="\" GOTO getdir
  108. IF "<path>"=="" GOTO getdir
  109. IF NOT DIREXISTS <dstdrive>\ GOTO getdir
  110.  
  111. CD <dstdrive>\
  112.  
  113. IF NOT DIREXISTS <dest> GOTO nopath
  114. IF NOT EXISTS <dest>\DW.EXE GOTO nopath
  115. CLEAR
  116. TEXT Le répertoire "<dest>" existe déjà.
  117. NEWMENU 1, 3, 67
  118. ;TFPL -8-6-93
  119. MENU Installer le logical et seulement l'interface françcias
  120. MENU Installer le logical et les interfaces pour toutes les langues
  121. ;TFPL
  122. MENU Supprimez l'ancienne version; n'installez pas le nouveau
  123. MENU Modifiez la configuration; ne copiez pas le logiciel
  124. MENU Interrompez l'installation sans faire aucune modification
  125. ENDCHOICES
  126.  
  127. ;TFPL -8-6-93
  128. CHOICE 1
  129. CLEAR
  130. TEXT Effacement du contenu antérieur de <dest>...
  131. FOREACH name = <names>
  132.  DEL <dest>\<name>*.*
  133. NEXT
  134. DEL <dest>\FS_*.DRV
  135. DEL <dest>\SC_*.DRV
  136. DEL <dest>\PR_*.DRV
  137. DEL <dest>\GR_*.DRV
  138. DEL <dest>\_DW_*.*
  139. DEL <dest>\ADL_MSGS.*
  140. DEL <dest>\DW.EXE
  141. DEL <dest>\UPDATE.EXE
  142. SET ch = 2
  143. GOTO okpath
  144.  
  145. ;TFPL
  146.  
  147. CHOICE 2
  148. CLEAR
  149. TEXT Effacement du contenu antérieur de <dest>...
  150. FOREACH name = <names>
  151.  DEL <dest>\<name>*.*
  152. NEXT
  153. DEL <dest>\FS_*.DRV
  154. DEL <dest>\SC_*.DRV
  155. DEL <dest>\PR_*.DRV
  156. DEL <dest>\GR_*.DRV
  157. DEL <dest>\_DW_*.*
  158. DEL <dest>\ADL_MSGS.*
  159. DEL <dest>\DW.EXE
  160. DEL <dest>\UPDATE.EXE
  161. SET ch = 3
  162. GOTO okpath
  163.  
  164. CHOICE 3
  165. CLEAR
  166. TEXT Suppression du répertoire <dest>...
  167. FOREACH name = <names>
  168.  DEL <dest>\<name>*.*
  169. NEXT
  170. DEL <dest>\FS_*.DRV
  171. DEL <dest>\SC_*.DRV
  172. DEL <dest>\PR_*.DRV
  173. DEL <dest>\GR_*.DRV
  174. DEL <dest>\_DW_*.*
  175. DEL <dest>\ADL_MSGS.*
  176. DEL <dest>\DW.EXE
  177. DEL <dest>\UPDATE.EXE
  178. IF NOT EXISTS <dest>\*.* GOTO remdest
  179. TEXT Le répertoire <dest> contient des fichiers non répertories,
  180. ---- le répertoire n'est pas supprimé !!
  181. WAIT
  182. GOTO norem
  183. :remdest
  184. RD <dest>
  185. :norem
  186. DEL <dstdrive>\<prod>.BAT
  187. GOTO end2
  188.  
  189. CHOICE 4
  190. SET alter = Y
  191. SET confile = <dest>\_DW_.CFG
  192. GOTO okpath
  193.  
  194. CHOICE 5
  195. GOTO end2
  196. ENDCHOICES
  197.  
  198. :nopath
  199. MD <dest>
  200. IF NOT DIREXISTS <dest> GOTO getdir
  201. ;TFPL -8-6-93
  202. TEXT New Installation
  203. NEWMENU 1, 3, 64
  204. MENU Installer le logical et seulement l'interface françcias
  205. MENU Installer le logical et les interfaces pour toutes les langues
  206. ENDCHOICES
  207.  
  208. CHOICE1
  209. SET ch = 2
  210. GOTO okpath
  211.  
  212. CHOICE2
  213. SET ch = 3
  214. GOTO okpath
  215. ENDCHOICES
  216.  
  217. :okpath
  218.  
  219. ;----------------------------------------------------------------------------
  220.  
  221. IF NOT EXISTS <confile> GOTO no_config
  222. DISP 5,14 Reading configuration...
  223. READCONFIG <confile>
  224. :no_config
  225.  
  226. ;----------------------------------------------------------------------------
  227.  
  228. HSCOUNT hs
  229. IF NOT <hs>==0 GOTO have_hs
  230.  
  231. CLEAR
  232. TEXT  Problème - Aucune unité CD-ROM n'est installée.  \n\n Veuillez utiliser le
  233. ---- disque d'installation fourni par votre fabricant d'unité CD-ROM pour
  234. ---- installer le questionnaire de périphériques.  Puis réexecutez le programme
  235. ---- d'installation. \n\n
  236. ---- Remarque : le disque d'installation de l'unité CD-ROM reproduira quelques
  237. ---- fichiers sur votre disque système et modifiera les fichiers
  238. ---- CONFIG.SYS et AUTOEXEC.BAT.
  239. ---- D'autres programmes utilisent MSCDEX, il est recommande de supprimer
  240. ---- la ligne d'appel de ce programme de votre fichier AUTOEXEC.BAT, étant
  241. ---- donné que ce logiciel n'en a pas besoin.  Assurez vous de
  242. ---- réinitialiser votre système une fois que les modules CD-ROM sont
  243. ---- installés.
  244. WAIT
  245. ABORT
  246.  
  247. :have_hs
  248. ;TFPL 19-11-93
  249. GOTO get_hs_letter
  250.  
  251. SET msg =
  252. IF <hs>==1 GOTO instOne
  253.  
  254. TEXT Vous pouvez choisir parmi différentes unités CD-ROM <def_cdtype>.  Avec
  255. ---- l'aide des touches  et , sélectionnez le périphérique CD-ROM
  256. ---- <def_cdtype> dans la liste, puis appuyez sur ┘ (Entrée) lorsque vous êtes
  257. ---- prêt à commencer.  Appuyez sur Echap pour interrompre l'installation.
  258. GOTO :instMore
  259.  
  260. :instOne
  261. SET msg = Un module CD-ROM <def_cdtype> est installe (voir CONFIG.SYS):\n\n
  262.  
  263. :instMore
  264. HSDRIVER hsname = 25, 6
  265. CONFIG Driver = "<def_driver>=<hsname>"
  266. CLEAR
  267. TEXT <msg> Le module CD-ROM <def_cdtype> sélectionné est nommé "«<hsname>»".  Dans le cas ou cette information est érronee, appuyez sur Echap pour
  268. ---- interrompre l'installation et vérifiez votre fichier CONFIG.SYS.
  269. ---- Il n'est pas nécessaire de faire appel au programme MSCDEX.EXE
  270. ---- (Extensions CD-ROM de Microsoft) pour exécuter ce logiciel.
  271. ---- A moins qu'il soit nécessaire pour un autre logiciel, vous pouvez
  272. ---- supprimer ce programme de votre fichier \AUTOEXEC.BAT (dans lequel
  273. ---- le programme d'installation de l'unité peut l'avoir placé).
  274.  
  275. WAIT
  276.  
  277. CLEAR
  278. TEXT Copie de l'interfa